home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / CDTools / S / ExtractCDID.awebrx < prev    next >
Text File  |  2000-12-02  |  699b  |  27 lines
  1. /*
  2.     Extracts an individual CDID file from the archive
  3.     $VER: ExtractCDID.awebrx 1.1 (8.11.2000)
  4.     (c) Neil Bothwick, Wirenet
  5.  
  6.     1.1  - Uses "parse source" to get the name of the CD
  7. */
  8.  
  9. options results
  10. call addlib('rexxsupport.library',0,-30,0)
  11. call addlib('rexxdossupport.library',0,-30,0)
  12. options failat 21
  13.  
  14. parse source . ' ' . ' ' . ' ' ScriptName ' ' .
  15. CDName = left(ScriptName, pos(':', ScriptName) - 1)
  16. Archive = CDName':AACD/Resources/CDROM/CDIDs/CDIDs.lha'
  17. ExtractPath = 'RAM:'
  18.  
  19. parse arg ID
  20.  
  21. address command 'LhA -I -q e' Archive 'Disks/'ID ExtractPath
  22. if RC = 0 then msg = ID' is now in RAM:'
  23. else msg = 'An error occurred extracting 'ID
  24. 'request title "Amiga Active CD" "'msg'" "OK"'
  25. exit
  26.  
  27.